GridOff:AxesOff:Func
For(A,1,9):FnOff A:End
ClrDraw
For(A,0,60,2)
  Pxl-On(A,0)
  Pxl-On(0,A)
  Pxl-On(A,60)
  Pxl-On(62,A)
End
100\->\dim(L\1\):Fill(\(-)\1,L\1\)
100\->\A
While A>85
  randInt(1,100)\->\B
  If L\1\(B)=\(-)\1:Then
    \(-)\2\->\L\1\(B)
    A-1\->\A
  End
End
5\->\B:5\->\C
While A>0
  Text(0,62,"QUEDAN        ")
  Text(0,87,A)
  For(D,6B+2,6B+6):For(E,6C+2,6C+4)
    Pxl-Change(D,E)
  End:End
  0\->\F
  Repeat F=21 or (F\>=\24 and F\<=\26) or F=34
    getKey\->\F
  End
  For(D,6B+2,6B+6):For(E,6C+2,6C+4)
    Pxl-Change(D,E)
  End:End
  If F=21:Then
    If L\1\(10B+C+1)=\(-)\2:Goto 0
    If L\1\(10B+C+1)=\(-)\1:Then
      0\->\F
      For(D,B-(B>0),B+(B<9)):For(E,C-(C>0),C+(C<9))
        F+(L\1\(10D+E+1)=\(-)\2)\->\F
      End:End
      A-1\->\A
      F\->\L\1\(10B+C+1)
      Text(6B+1,6C+2,F)
    End
  Else
    B-(F=25 and B>0)+(F=34 and B<9)\->\B
    C-(F=24 and C>0)+(F=26 and C<9)\->\C
  End
End
Text(12,62,"TU GANAS")
Goto 1

Lbl 0
Text(12,62,"TU")
Text(18,67,"PIERDES")

Lbl 1
Text(51,62,"PULSE")
Text(57,75,"ENTER")
While getKey\!=\105:End

ClrHome
DelVar A:DelVar B:DelVar C:DelVar D
DelVar E:DelVar F:DelVar L\1\